home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (Latin America) Volume 1 #6 / CD-ROM Today 6 Latam.iso / referenc / evol / database.dxr / 00141_initialiser frame.ls < prev    next >
Encoding:
Text File  |  1996-11-08  |  2.1 KB  |  93 lines
  1. on exitFrame
  2.   InitFileNames()
  3.   InitMembers()
  4.   InitMembersSUPPORT()
  5.   InitFontSize()
  6.   InitScrolling()
  7.   InitColours()
  8.   InitCorner()
  9.   initScanTag()
  10.   resetScanTag()
  11.   initTrace()
  12.   go("main")
  13. end
  14.  
  15. on setStartArticle
  16.   global gSourceMem, gdbstart, gArtLib, gDBtrace, gNarraList, gNarraID, gScanCount
  17.   set gSourceMem to the number of member gdbstart of castLib gArtLib
  18.   UpdateNarraList()
  19.   if voidp(gNarraList) or (count(gNarraList) < 1) then
  20.     beep()
  21.     set NarraID to 1
  22.   else
  23.     set Pair1 to getAt(gNarraList, 1)
  24.     set NarraID to getAt(Pair1, 1)
  25.   end if
  26.   put "DBlaunch, SetStartArticle > Pair1 = " & Pair1
  27.   add(gDBtrace, [NarraID, gdbstart])
  28.   set gNarraID to NarraID
  29.   if gdbstart = "CONTENTS" then
  30.     set gScanCount to 32000
  31.   end if
  32. end
  33.  
  34. on InitScrolling
  35.   global gScrollLine, gScrollTop, gScrollBotDB, gScrollArrowCh
  36.   set gScrollLine to 10
  37.   set gScrollTop to 35
  38.   set gScrollBotDB to 330
  39.   set gScrollArrowCh to 10
  40. end
  41.  
  42. on InitCorner
  43.   global gNarraID
  44.   puppetSprite(gCornerCh(), 1)
  45.   set cornMem to 60 + gNarraID
  46.   set the member of sprite gCornerCh() to cornMem
  47. end
  48.  
  49. on initTrace
  50.   global gdbstart, gDBtrace
  51.   if voidp(gdbstart) then
  52.     set gdbstart to "contents"
  53.   end if
  54.   if voidp(gDBtrace) then
  55.     PrepTrace()
  56.   end if
  57.   LoadTrace()
  58.   loadArticle(gdbstart, 0)
  59. end
  60.  
  61. on InitFileNames
  62.   global gDBWinName, gSupportWinName, gArtLib, RootPath
  63.   set gDBWinName to RootPath & "DATABASE"
  64.   set gSupportWinName to RootPath & "SUPPORT"
  65.   set gArtLib to "db_art"
  66. end
  67.  
  68. on InitMembers
  69.   global gSourceMem, gDisplayMem, gArtLib, gArtTitleMem, gTraceMem
  70.   set gSourceMem to the number of member "contents" of castLib gArtLib
  71.   set gDisplayMem to 17
  72.   set gArtTitleMem to member 32 of castLib 1
  73.   set gTraceMem to 33
  74.   set the wordWrap of member gTraceMem to 0
  75.   set the text of field gTraceMem to " "
  76.   set the text of field gArtTitleMem to " "
  77. end
  78.  
  79. on InitMembersSUPPORT
  80.   global gDisplayMemSUPPORT
  81.   set gDisplayMemSUPPORT to 17
  82. end
  83.  
  84. on InitColours
  85.   global gColorList
  86.   set gColorList to [210, 59, 71, 232, 102, 137]
  87. end
  88.  
  89. on InitFontSize
  90.   global gFontSize
  91.   set gFontSize to 10
  92. end
  93.